home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
opint102.5rc
/
ADDLOG.PAS
next >
Wrap
Pascal/Delphi Source File
|
1988-12-04
|
2KB
|
55 lines
PROGRAM AddLogFile;
{###########################################################################}
{# #}
{# Add Line to an OPUS v 1.03 Log File. #}
{# #}
{# This source code will be released with OpInt Ver. 1.02 and Later. #}
{# This source was intended as an example on how to use OpInt. #}
{# #}
{# (C) Bifrost Unlimited, (C) Per Holm - 1988 #}
{# #}
{###########################################################################}
Uses
Crt,OpInt;
CONST
Ver = 'V. 1.00';
DateOfVer = 'Jul 17, 1988';
VAR
i: Integer;
Subject: STRING[60];
PROCEDURE Welcome;
BEGIN { Welcome }
writeln('Add Log String ',Ver,' - Uses OpInt (Opus Interface)');
writeln;
writeln('(C) Per Holm, (C) Bifrost Unlimited - ',DateOfVer);
writeln;
IF ParamCount<2 THEN
BEGIN
Writeln(chr(7),'Illegal Number of Parameters');
writeln;
writeln('AddLog [x:][Path]Opus.Log <Comment> [<Comment> [[...]]]');
writeln;
Halt(2);
END;
Subject:='';
FOR i:=2 TO ParamCount DO
Subject:=Subject+ParamStr(i)+' '
END; { Welcome }
BEGIN
DirectVideo:=False;
Welcome;
AddLog(ParamStr(1),'+','DOS '+Subject);
IF OpIntERROR>0 THEN
BEGIN
writeln(#7,'Error Processing Log File');
HALT(2);
END;
END.